!--------------------------cohcom.f-------------------------------------
!  Version: 051219-1435
!-----------------------------------------------------------------------
!23456789|123456789|123456789|123456789|123456789|123456789|123456789|12

! ----------------------------------------
! PEGS5 common file for  COHCOM
! ----------------------------------------

      integer irayl
      double precision afac, afac2, bfac2, affi, xval, xvalint, xvalfac,
     &                 cohe, coheint
      COMMON/COHCOM/AFAC(100,100),AFAC2(100),BFAC2(100),AFFI(100), 
     &              XVAL(100),XVALINT(61),XVALFAC(100),COHE(61,100),
     &              COHEINT(61,1), IRAYL

!--------------------------last line------------------------------------
